home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / latex209 / contrib / oval / newcirc.mf < prev    next >
Text File  |  1991-10-26  |  13KB  |  807 lines
  1. font_identifier "CIRCLEOV"; font_size 8pt#;
  2. font_coding_scheme:="LATEX CIRCLE";
  3. aspect_ratio#:=1;
  4. mode_setup;
  5.  
  6. let cmchar=\; % cmchar should precede each character, for testing purposes
  7.  
  8. thicknessone:=ceiling(0.4pt#*hppp); % the way rules thicknesses are done
  9. % thickness#:=thickness/hppp; % and let thickness# round to right value
  10. % NO, I deleted this BAD line! --- DEK, 9 Jul 87
  11. pickup pencircle scaled thicknessone; nibone:=savepen;
  12. pickup pencircle scaled 2thicknessone; nibtwo:=savepen;
  13. pickup pencircle scaled 3thicknessone; nibthree:=savepen;
  14. pickup pencircle scaled 4thicknessone; nibfour:=savepen;
  15.  
  16.  
  17. def qbeginchar (expr c, diam_sharp) =
  18. beginchar(c,.5*diam_sharp,.5*diam_sharp,0);
  19. enddef;
  20.  
  21. def upleftchar(expr diam_sharp) =
  22. draw quartercircle rotated 90 scaled 4diam_sharp shifted (2diam_sharp,0);
  23. enddef;
  24.  
  25. def downleftchar(expr diam_sharp) =
  26. draw quartercircle rotated 180 scaled 4diam_sharp
  27.    shifted (2diam_sharp,2diam_sharp);
  28. enddef;
  29.  
  30. def uprightchar(expr diam_sharp) =
  31. draw quartercircle scaled 4diam_sharp;
  32. enddef;
  33.  
  34. def downrightchar(expr diam_sharp) =
  35. draw quartercircle rotated 270 scaled 4diam_sharp shifted (0,2diam_sharp);
  36. enddef;
  37.  
  38. cmchar "2pt, top left";
  39. qbeginchar(0,4pt#);
  40. pickup nibone;
  41. upleftchar(4pt#);
  42. endchar;
  43.  
  44. cmchar "2pt, bottom left";
  45. qbeginchar(1,4pt#);
  46. pickup nibone;
  47. downleftchar(4pt#);
  48. endchar;
  49.  
  50. cmchar "2pt, top right";
  51. qbeginchar(2,4pt#);
  52. pickup nibone;
  53. uprightchar(4pt#);
  54. endchar;
  55.  
  56. cmchar "2pt, bottom right";
  57. qbeginchar(3,4pt#);
  58. pickup nibone;
  59. downrightchar(4pt#);
  60. endchar;
  61.  
  62. cmchar "4pt, top left";
  63. qbeginchar(4,8pt#);
  64. pickup nibone;
  65. upleftchar(8pt#);
  66. endchar;
  67.  
  68. cmchar "4pt, bottom left";
  69. qbeginchar(5,8pt#);
  70. pickup nibone;
  71. downleftchar(8pt#);
  72. endchar;
  73.  
  74. cmchar "4pt, top right";
  75. qbeginchar(6,8pt#);
  76. pickup nibone;
  77. uprightchar(8pt#);
  78. endchar;
  79.  
  80. cmchar "4pt, bottom right";
  81. qbeginchar(7,8pt#);
  82. pickup nibone;
  83. downrightchar(8pt#);
  84. endchar;
  85.  
  86. cmchar "6pt, top left";
  87. qbeginchar(8,12pt#);
  88. pickup nibone;
  89. upleftchar(12pt#);
  90. endchar;
  91.  
  92. cmchar "6pt, bottom left";
  93. qbeginchar(9,12pt#);
  94. pickup nibone;
  95. downleftchar(12pt#);
  96. endchar;
  97.  
  98. cmchar "6pt, top right";
  99. qbeginchar(10,12pt#);
  100. pickup nibone;
  101. uprightchar(12pt#);
  102. endchar;
  103.  
  104. cmchar "6pt, bottom right";
  105. qbeginchar(11,12pt#);
  106. pickup nibone;
  107. downrightchar(12pt#);
  108. endchar;
  109.  
  110. cmchar "8pt, top left";
  111. qbeginchar(12,16pt#);
  112. pickup nibone;
  113. upleftchar(16pt#);
  114. endchar;
  115.  
  116. cmchar "8pt, bottom left";
  117. qbeginchar(13,16pt#);
  118. pickup nibone;
  119. downleftchar(16pt#);
  120. endchar;
  121.  
  122. cmchar "8pt, top right";
  123. qbeginchar(14,16pt#);
  124. pickup nibone;
  125. uprightchar(16pt#);
  126. endchar;
  127.  
  128. cmchar "8pt, bottom right";
  129. qbeginchar(15,16pt#);
  130. pickup nibone;
  131. downrightchar(16pt#);
  132. endchar;
  133.  
  134. cmchar "10pt, top left";
  135. qbeginchar(16,20pt#);
  136. pickup nibone;
  137. upleftchar(20pt#);
  138. endchar;
  139.  
  140. cmchar "10pt, bottom left";
  141. qbeginchar(17,20pt#);
  142. pickup nibone;
  143. downleftchar(20pt#);
  144. endchar;
  145.  
  146. cmchar "10pt, top right";
  147. qbeginchar(18,20pt#);
  148. pickup nibone;
  149. uprightchar(20pt#);
  150. endchar;
  151.  
  152. cmchar "10pt, bottom right";
  153. qbeginchar(19,20pt#);
  154. pickup nibone;
  155. downrightchar(20pt#);
  156. endchar;
  157.  
  158. cmchar "12pt, top left";
  159. qbeginchar(20,24pt#);
  160. pickup nibone;
  161. upleftchar(24pt#);
  162. endchar;
  163.  
  164. cmchar "12pt, bottom left";
  165. qbeginchar(21,24pt#);
  166. pickup nibone;
  167. downleftchar(24pt#);
  168. endchar;
  169.  
  170. cmchar "12pt, top right";
  171. qbeginchar(22,24pt#);
  172. pickup nibone;
  173. uprightchar(24pt#);
  174. endchar;
  175.  
  176. cmchar "12pt, bottom right";
  177. qbeginchar(23,24pt#);
  178. pickup nibone;
  179. downrightchar(24pt#);
  180. endchar;
  181.  
  182. cmchar "14pt, top left";
  183. qbeginchar(24,28pt#);
  184. pickup nibone;
  185. upleftchar(28pt#);
  186. endchar;
  187.  
  188. cmchar "14pt, bottom left";
  189. qbeginchar(25,28pt#);
  190. pickup nibone;
  191. downleftchar(28pt#);
  192. endchar;
  193.  
  194. cmchar "14pt, top right";
  195. qbeginchar(26,28pt#);
  196. pickup nibone;
  197. uprightchar(28pt#);
  198. endchar;
  199.  
  200. cmchar "14pt, bottom right";
  201. qbeginchar(27,28pt#);
  202. pickup nibone;
  203. downrightchar(28pt#);
  204. endchar;
  205.  
  206. cmchar "16pt, top left";
  207. qbeginchar(28,32pt#);
  208. pickup nibone;
  209. upleftchar(32pt#);
  210. endchar;
  211.  
  212. cmchar "16pt, bottom left";
  213. qbeginchar(29,32pt#);
  214. pickup nibone;
  215. downleftchar(32pt#);
  216. endchar;
  217.  
  218. cmchar "16pt, top right";
  219. qbeginchar(30,32pt#);
  220. pickup nibone;
  221. uprightchar(32pt#);
  222. endchar;
  223.  
  224. cmchar "16pt, bottom right";
  225. qbeginchar(31,32pt#);
  226. pickup nibone;
  227. downrightchar(32pt#);
  228. endchar;
  229.  
  230. cmchar "2pt, top left";
  231. qbeginchar(32+0,4pt#);
  232. pickup nibtwo;
  233. upleftchar(4pt#);
  234. endchar;
  235.  
  236. cmchar "2pt, bottom left";
  237. qbeginchar(32+1,4pt#);
  238. pickup nibtwo;
  239. downleftchar(4pt#);
  240. endchar;
  241.  
  242. cmchar "2pt, top right";
  243. qbeginchar(32+2,4pt#);
  244. pickup nibtwo;
  245. uprightchar(4pt#);
  246. endchar;
  247.  
  248. cmchar "2pt, bottom right";
  249. qbeginchar(32+3,4pt#);
  250. pickup nibtwo;
  251. downrightchar(4pt#);
  252. endchar;
  253.  
  254. cmchar "4pt, top left";
  255. qbeginchar(32+4,8pt#);
  256. pickup nibtwo;
  257. upleftchar(8pt#);
  258. endchar;
  259.  
  260. cmchar "4pt, bottom left";
  261. qbeginchar(32+5,8pt#);
  262. pickup nibtwo;
  263. downleftchar(8pt#);
  264. endchar;
  265.  
  266. cmchar "4pt, top right";
  267. qbeginchar(32+6,8pt#);
  268. pickup nibtwo;
  269. uprightchar(8pt#);
  270. endchar;
  271.  
  272. cmchar "4pt, bottom right";
  273. qbeginchar(32+7,8pt#);
  274. pickup nibtwo;
  275. downrightchar(8pt#);
  276. endchar;
  277.  
  278. cmchar "6pt, top left";
  279. qbeginchar(32+8,12pt#);
  280. pickup nibtwo;
  281. upleftchar(12pt#);
  282. endchar;
  283.  
  284. cmchar "6pt, bottom left";
  285. qbeginchar(32+9,12pt#);
  286. pickup nibtwo;
  287. downleftchar(12pt#);
  288. endchar;
  289.  
  290. cmchar "6pt, top right";
  291. qbeginchar(32+10,12pt#);
  292. pickup nibtwo;
  293. uprightchar(12pt#);
  294. endchar;
  295.  
  296. cmchar "6pt, bottom right";
  297. qbeginchar(32+11,12pt#);
  298. pickup nibtwo;
  299. downrightchar(12pt#);
  300. endchar;
  301.  
  302. cmchar "8pt, top left";
  303. qbeginchar(32+12,16pt#);
  304. pickup nibtwo;
  305. upleftchar(16pt#);
  306. endchar;
  307.  
  308. cmchar "8pt, bottom left";
  309. qbeginchar(32+13,16pt#);
  310. pickup nibtwo;
  311. downleftchar(16pt#);
  312. endchar;
  313.  
  314. cmchar "8pt, top right";
  315. qbeginchar(32+14,16pt#);
  316. pickup nibtwo;
  317. uprightchar(16pt#);
  318. endchar;
  319.  
  320. cmchar "8pt, bottom right";
  321. qbeginchar(32+15,16pt#);
  322. pickup nibtwo;
  323. downrightchar(16pt#);
  324. endchar;
  325.  
  326. cmchar "10pt, top left";
  327. qbeginchar(32+16,20pt#);
  328. pickup nibtwo;
  329. upleftchar(20pt#);
  330. endchar;
  331.  
  332. cmchar "10pt, bottom left";
  333. qbeginchar(32+17,20pt#);
  334. pickup nibtwo;
  335. downleftchar(20pt#);
  336. endchar;
  337.  
  338. cmchar "10pt, top right";
  339. qbeginchar(32+18,20pt#);
  340. pickup nibtwo;
  341. uprightchar(20pt#);
  342. endchar;
  343.  
  344. cmchar "10pt, bottom right";
  345. qbeginchar(32+19,20pt#);
  346. pickup nibtwo;
  347. downrightchar(20pt#);
  348. endchar;
  349.  
  350. cmchar "12pt, top left";
  351. qbeginchar(32+20,24pt#);
  352. pickup nibtwo;
  353. upleftchar(24pt#);
  354. endchar;
  355.  
  356. cmchar "12pt, bottom left";
  357. qbeginchar(32+21,24pt#);
  358. pickup nibtwo;
  359. downleftchar(24pt#);
  360. endchar;
  361.  
  362. cmchar "12pt, top right";
  363. qbeginchar(32+22,24pt#);
  364. pickup nibtwo;
  365. uprightchar(24pt#);
  366. endchar;
  367.  
  368. cmchar "12pt, bottom right";
  369. qbeginchar(32+23,24pt#);
  370. pickup nibtwo;
  371. downrightchar(24pt#);
  372. endchar;
  373.  
  374. cmchar "14pt, top left";
  375. qbeginchar(32+24,28pt#);
  376. pickup nibtwo;
  377. upleftchar(28pt#);
  378. endchar;
  379.  
  380. cmchar "14pt, bottom left";
  381. qbeginchar(32+25,28pt#);
  382. pickup nibtwo;
  383. downleftchar(28pt#);
  384. endchar;
  385.  
  386. cmchar "14pt, top right";
  387. qbeginchar(32+26,28pt#);
  388. pickup nibtwo;
  389. uprightchar(28pt#);
  390. endchar;
  391.  
  392. cmchar "14pt, bottom right";
  393. qbeginchar(32+27,28pt#);
  394. pickup nibtwo;
  395. downrightchar(28pt#);
  396. endchar;
  397.  
  398. cmchar "16pt, top left";
  399. qbeginchar(32+28,32pt#);
  400. pickup nibtwo;
  401. upleftchar(32pt#);
  402. endchar;
  403.  
  404. cmchar "16pt, bottom left";
  405. qbeginchar(32+29,32pt#);
  406. pickup nibtwo;
  407. downleftchar(32pt#);
  408. endchar;
  409.  
  410. cmchar "16pt, top right";
  411. qbeginchar(32+30,32pt#);
  412. pickup nibtwo;
  413. uprightchar(32pt#);
  414. endchar;
  415.  
  416. cmchar "16pt, bottom right";
  417. qbeginchar(32+31,32pt#);
  418. pickup nibtwo;
  419. downrightchar(32pt#);
  420. endchar;
  421.  
  422. cmchar "2pt, top left";
  423. qbeginchar(64+0,4pt#);
  424. pickup nibthree;
  425. upleftchar(4pt#);
  426. endchar;
  427.  
  428. cmchar "2pt, bottom left";
  429. qbeginchar(64+1,4pt#);
  430. pickup nibthree;
  431. downleftchar(4pt#);
  432. endchar;
  433.  
  434. cmchar "2pt, top right";
  435. qbeginchar(64+2,4pt#);
  436. pickup nibthree;
  437. uprightchar(4pt#);
  438. endchar;
  439.  
  440. cmchar "2pt, bottom right";
  441. qbeginchar(64+3,4pt#);
  442. pickup nibthree;
  443. downrightchar(4pt#);
  444. endchar;
  445.  
  446. cmchar "4pt, top left";
  447. qbeginchar(64+4,8pt#);
  448. pickup nibthree;
  449. upleftchar(8pt#);
  450. endchar;
  451.  
  452. cmchar "4pt, bottom left";
  453. qbeginchar(64+5,8pt#);
  454. pickup nibthree;
  455. downleftchar(8pt#);
  456. endchar;
  457.  
  458. cmchar "4pt, top right";
  459. qbeginchar(64+6,8pt#);
  460. pickup nibthree;
  461. uprightchar(8pt#);
  462. endchar;
  463.  
  464. cmchar "4pt, bottom right";
  465. qbeginchar(64+7,8pt#);
  466. pickup nibthree;
  467. downrightchar(8pt#);
  468. endchar;
  469.  
  470. cmchar "6pt, top left";
  471. qbeginchar(64+8,12pt#);
  472. pickup nibthree;
  473. upleftchar(12pt#);
  474. endchar;
  475.  
  476. cmchar "6pt, bottom left";
  477. qbeginchar(64+9,12pt#);
  478. pickup nibthree;
  479. downleftchar(12pt#);
  480. endchar;
  481.  
  482. cmchar "6pt, top right";
  483. qbeginchar(64+10,12pt#);
  484. pickup nibthree;
  485. uprightchar(12pt#);
  486. endchar;
  487.  
  488. cmchar "6pt, bottom right";
  489. qbeginchar(64+11,12pt#);
  490. pickup nibthree;
  491. downrightchar(12pt#);
  492. endchar;
  493.  
  494. cmchar "8pt, top left";
  495. qbeginchar(64+12,16pt#);
  496. pickup nibthree;
  497. upleftchar(16pt#);
  498. endchar;
  499.  
  500. cmchar "8pt, bottom left";
  501. qbeginchar(64+13,16pt#);
  502. pickup nibthree;
  503. downleftchar(16pt#);
  504. endchar;
  505.  
  506. cmchar "8pt, top right";
  507. qbeginchar(64+14,16pt#);
  508. pickup nibthree;
  509. uprightchar(16pt#);
  510. endchar;
  511.  
  512. cmchar "8pt, bottom right";
  513. qbeginchar(64+15,16pt#);
  514. pickup nibthree;
  515. downrightchar(16pt#);
  516. endchar;
  517.  
  518. cmchar "10pt, top left";
  519. qbeginchar(64+16,20pt#);
  520. pickup nibthree;
  521. upleftchar(20pt#);
  522. endchar;
  523.  
  524. cmchar "10pt, bottom left";
  525. qbeginchar(64+17,20pt#);
  526. pickup nibthree;
  527. downleftchar(20pt#);
  528. endchar;
  529.  
  530. cmchar "10pt, top right";
  531. qbeginchar(64+18,20pt#);
  532. pickup nibthree;
  533. uprightchar(20pt#);
  534. endchar;
  535.  
  536. cmchar "10pt, bottom right";
  537. qbeginchar(64+19,20pt#);
  538. pickup nibthree;
  539. downrightchar(20pt#);
  540. endchar;
  541.  
  542. cmchar "12pt, top left";
  543. qbeginchar(64+20,24pt#);
  544. pickup nibthree;
  545. upleftchar(24pt#);
  546. endchar;
  547.  
  548. cmchar "12pt, bottom left";
  549. qbeginchar(64+21,24pt#);
  550. pickup nibthree;
  551. downleftchar(24pt#);
  552. endchar;
  553.  
  554. cmchar "12pt, top right";
  555. qbeginchar(64+22,24pt#);
  556. pickup nibthree;
  557. uprightchar(24pt#);
  558. endchar;
  559.  
  560. cmchar "12pt, bottom right";
  561. qbeginchar(64+23,24pt#);
  562. pickup nibthree;
  563. downrightchar(24pt#);
  564. endchar;
  565.  
  566. cmchar "14pt, top left";
  567. qbeginchar(64+24,28pt#);
  568. pickup nibthree;
  569. upleftchar(28pt#);
  570. endchar;
  571.  
  572. cmchar "14pt, bottom left";
  573. qbeginchar(64+25,28pt#);
  574. pickup nibthree;
  575. downleftchar(28pt#);
  576. endchar;
  577.  
  578. cmchar "14pt, top right";
  579. qbeginchar(64+26,28pt#);
  580. pickup nibthree;
  581. uprightchar(28pt#);
  582. endchar;
  583.  
  584. cmchar "14pt, bottom right";
  585. qbeginchar(64+27,28pt#);
  586. pickup nibthree;
  587. downrightchar(28pt#);
  588. endchar;
  589.  
  590. cmchar "16pt, top left";
  591. qbeginchar(64+28,32pt#);
  592. pickup nibthree;
  593. upleftchar(32pt#);
  594. endchar;
  595.  
  596. cmchar "16pt, bottom left";
  597. qbeginchar(64+29,32pt#);
  598. pickup nibthree;
  599. downleftchar(32pt#);
  600. endchar;
  601.  
  602. cmchar "16pt, top right";
  603. qbeginchar(64+30,32pt#);
  604. pickup nibthree;
  605. uprightchar(32pt#);
  606. endchar;
  607.  
  608. cmchar "16pt, bottom right";
  609. qbeginchar(64+31,32pt#);
  610. pickup nibthree;
  611. downrightchar(32pt#);
  612. endchar;
  613.  
  614. cmchar "2pt, top left";
  615. qbeginchar(96+0,4pt#);
  616. pickup nibfour;
  617. upleftchar(4pt#);
  618. endchar;
  619.  
  620. cmchar "2pt, bottom left";
  621. qbeginchar(96+1,4pt#);
  622. pickup nibfour;
  623. downleftchar(4pt#);
  624. endchar;
  625.  
  626. cmchar "2pt, top right";
  627. qbeginchar(96+2,4pt#);
  628. pickup nibfour;
  629. uprightchar(4pt#);
  630. endchar;
  631.  
  632. cmchar "2pt, bottom right";
  633. qbeginchar(96+3,4pt#);
  634. pickup nibfour;
  635. downrightchar(4pt#);
  636. endchar;
  637.  
  638. cmchar "4pt, top left";
  639. qbeginchar(96+4,8pt#);
  640. pickup nibfour;
  641. upleftchar(8pt#);
  642. endchar;
  643.  
  644. cmchar "4pt, bottom left";
  645. qbeginchar(96+5,8pt#);
  646. pickup nibfour;
  647. downleftchar(8pt#);
  648. endchar;
  649.  
  650. cmchar "4pt, top right";
  651. qbeginchar(96+6,8pt#);
  652. pickup nibfour;
  653. uprightchar(8pt#);
  654. endchar;
  655.  
  656. cmchar "4pt, bottom right";
  657. qbeginchar(96+7,8pt#);
  658. pickup nibfour;
  659. downrightchar(8pt#);
  660. endchar;
  661.  
  662. cmchar "6pt, top left";
  663. qbeginchar(96+8,12pt#);
  664. pickup nibfour;
  665. upleftchar(12pt#);
  666. endchar;
  667.  
  668. cmchar "6pt, bottom left";
  669. qbeginchar(96+9,12pt#);
  670. pickup nibfour;
  671. downleftchar(12pt#);
  672. endchar;
  673.  
  674. cmchar "6pt, top right";
  675. qbeginchar(96+10,12pt#);
  676. pickup nibfour;
  677. uprightchar(12pt#);
  678. endchar;
  679.  
  680. cmchar "6pt, bottom right";
  681. qbeginchar(96+11,12pt#);
  682. pickup nibfour;
  683. downrightchar(12pt#);
  684. endchar;
  685.  
  686. cmchar "8pt, top left";
  687. qbeginchar(96+12,16pt#);
  688. pickup nibfour;
  689. upleftchar(16pt#);
  690. endchar;
  691.  
  692. cmchar "8pt, bottom left";
  693. qbeginchar(96+13,16pt#);
  694. pickup nibfour;
  695. downleftchar(16pt#);
  696. endchar;
  697.  
  698. cmchar "8pt, top right";
  699. qbeginchar(96+14,16pt#);
  700. pickup nibfour;
  701. uprightchar(16pt#);
  702. endchar;
  703.  
  704. cmchar "8pt, bottom right";
  705. qbeginchar(96+15,16pt#);
  706. pickup nibfour;
  707. downrightchar(16pt#);
  708. endchar;
  709.  
  710. cmchar "10pt, top left";
  711. qbeginchar(96+16,20pt#);
  712. pickup nibfour;
  713. upleftchar(20pt#);
  714. endchar;
  715.  
  716. cmchar "10pt, bottom left";
  717. qbeginchar(96+17,20pt#);
  718. pickup nibfour;
  719. downleftchar(20pt#);
  720. endchar;
  721.  
  722. cmchar "10pt, top right";
  723. qbeginchar(96+18,20pt#);
  724. pickup nibfour;
  725. uprightchar(20pt#);
  726. endchar;
  727.  
  728. cmchar "10pt, bottom right";
  729. qbeginchar(96+19,20pt#);
  730. pickup nibfour;
  731. downrightchar(20pt#);
  732. endchar;
  733.  
  734. cmchar "12pt, top left";
  735. qbeginchar(96+20,24pt#);
  736. pickup nibfour;
  737. upleftchar(24pt#);
  738. endchar;
  739.  
  740. cmchar "12pt, bottom left";
  741. qbeginchar(96+21,24pt#);
  742. pickup nibfour;
  743. downleftchar(24pt#);
  744. endchar;
  745.  
  746. cmchar "12pt, top right";
  747. qbeginchar(96+22,24pt#);
  748. pickup nibfour;
  749. uprightchar(24pt#);
  750. endchar;
  751.  
  752. cmchar "12pt, bottom right";
  753. qbeginchar(96+23,24pt#);
  754. pickup nibfour;
  755. downrightchar(24pt#);
  756. endchar;
  757.  
  758. cmchar "14pt, top left";
  759. qbeginchar(96+24,28pt#);
  760. pickup nibfour;
  761. upleftchar(28pt#);
  762. endchar;
  763.  
  764. cmchar "14pt, bottom left";
  765. qbeginchar(96+25,28pt#);
  766. pickup nibfour;
  767. downleftchar(28pt#);
  768. endchar;
  769.  
  770. cmchar "14pt, top right";
  771. qbeginchar(96+26,28pt#);
  772. pickup nibfour;
  773. uprightchar(28pt#);
  774. endchar;
  775.  
  776. cmchar "14pt, bottom right";
  777. qbeginchar(96+27,28pt#);
  778. pickup nibfour;
  779. downrightchar(28pt#);
  780. endchar;
  781.  
  782. cmchar "16pt, top left";
  783. qbeginchar(96+28,32pt#);
  784. pickup nibfour;
  785. upleftchar(32pt#);
  786. endchar;
  787.  
  788. cmchar "16pt, bottom left";
  789. qbeginchar(96+29,32pt#);
  790. pickup nibfour;
  791. downleftchar(32pt#);
  792. endchar;
  793.  
  794. cmchar "16pt, top right";
  795. qbeginchar(96+30,32pt#);
  796. pickup nibfour;
  797. uprightchar(32pt#);
  798. endchar;
  799.  
  800. cmchar "16pt, bottom right";
  801. qbeginchar(96+31,32pt#);
  802. pickup nibfour;
  803. downrightchar(32pt#);
  804. endchar;
  805.  
  806. bye;
  807.